home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / forms / frmwiz / rdblib / rberrfrm.frm < prev    next >
Text File  |  1995-01-28  |  3KB  |  118 lines
  1. VERSION 2.00
  2. Begin Form RBErrFrm
  3. BackColor       =   &H00C0C0C0&
  4. BorderStyle     =   3  'Fixed Double
  5. Caption         =   "RDB Error Handler"
  6. ClientHeight    =   3225
  7. ClientLeft      =   2550
  8. ClientTop       =   2490
  9. ClientWidth     =   4500
  10. Height          =   3630
  11. Icon            =   RBERRFRM.FRX:0000
  12. Left            =   2490
  13. LinkTopic       =   "Form2"
  14. MaxButton       =   0   'False
  15. ScaleHeight     =   3225
  16. ScaleWidth      =   4500
  17. Top             =   2145
  18. Width           =   4620
  19. Begin CommonDialog CMDialog1
  20. HelpFile        =   "rberror.hlp"
  21. Left            =   1740
  22. Top             =   1080
  23. End
  24. Begin SSCommand Command3D1
  25. Caption         =   "Help"
  26. Font3D          =   0  'None
  27. Height          =   315
  28. Index           =   3
  29. Left            =   120
  30. TabIndex        =   5
  31. Top             =   2760
  32. Width           =   2115
  33. End
  34. Begin SSCommand Command3D1
  35. Caption         =   "Ignore"
  36. Font3D          =   0  'None
  37. Height          =   315
  38. Index           =   2
  39. Left            =   2940
  40. TabIndex        =   4
  41. Top             =   2460
  42. Width           =   1380
  43. End
  44. Begin SSCommand Command3D1
  45. Caption         =   "Retry"
  46. Font3D          =   0  'None
  47. Height          =   315
  48. Index           =   1
  49. Left            =   1500
  50. TabIndex        =   3
  51. Top             =   2460
  52. Width           =   1440
  53. End
  54. Begin SSCommand Command3D1
  55. Caption         =   "Abort"
  56. Font3D          =   0  'None
  57. Height          =   315
  58. Index           =   0
  59. Left            =   120
  60. TabIndex        =   2
  61. Top             =   2460
  62. Width           =   1380
  63. End
  64. Begin SSCommand Command3D1
  65. Caption         =   "Create Problem Report"
  66. Font3D          =   0  'None
  67. Height          =   315
  68. Index           =   4
  69. Left            =   2220
  70. TabIndex        =   1
  71. Top             =   2760
  72. Width           =   2115
  73. End
  74. Begin TextBox Msg
  75. BackColor       =   &H00C0C0C0&
  76. Height          =   2295
  77. Left            =   120
  78. MultiLine       =   -1  'True
  79. TabIndex        =   0
  80. Top             =   60
  81. Width           =   4215
  82. End
  83. Begin Label SvErr
  84. Caption         =   "Label1"
  85. Height          =   315
  86. Left            =   420
  87. TabIndex        =   6
  88. Top             =   1920
  89. Width           =   915
  90. End
  91. End
  92.  
  93. Sub Command3D1_Click (index As Integer)
  94.     RB_Erraction = index
  95.     If index < 3 Then
  96.         Unload RBErrFrm
  97.     End If
  98.     If index = 3 Then
  99.         If Dir$("rberror.hlp") = "" Then
  100.             helploc = Trim(Environ$("windir"))
  101.             If Right(helploc, 1) <> "\" Then
  102.                 helploc = helploc + "\"
  103.             End If
  104.             CMDialog1.HelpFile = helploc & "rberror.hlp"
  105.         End If
  106.         CMDialog1.HelpCommand = HELP_KEY
  107.         CMDialog1.HelpKey = "Error" & Format$(Val(sverr.Caption), "######")
  108.         CMDialog1.Action = 6
  109.     End If
  110.     If index = 4 Then
  111.         RBProbRpt.TxtProblem.Text = Msg.Text
  112.         RBProbRpt.WindowState = MAXIMIZED
  113.         RBProbRpt.Show MODAL
  114.     End If
  115.  
  116. End Sub
  117.  
  118.